home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / FW-Head1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-09-02  |  715 b   |  43 lines
  1. /* Imports text from TLNG 2.0 to FinalWriter97  */
  2. /* FW97_Head1 V1.0 © 10.08.99 by Jochen Grus    */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6. Justify Center
  7. Fontsize 16
  8. Status FontPath
  9. fontpath = Result
  10. Status FontName
  11. fontname = Result
  12. pos = LASTPOS('_', fontname)
  13. IF (pos == 0) THEN
  14.    DO
  15.    fontpath = 'Normal'
  16.    END
  17. ELSE DO
  18.    pos = LASTPOS('_', fontpath)
  19.    fontpath = 'Normal'
  20.    END
  21. Style fontpath
  22. IF (pos == 0) THEN
  23.    DO
  24.    fontpath = 'Bold'
  25.    END
  26. ELSE DO
  27.    pos = LASTPOS('_', fontpath)
  28.    fontpath = 'Bold'
  29.    END
  30. Style fontpath
  31. IF (pos == 0) THEN
  32.    DO
  33.    fontpath = 'UnderLine'
  34.    END
  35. ELSE DO
  36.    pos = LASTPOS('_', fontpath)
  37.    fontpath = 'UnderLine'
  38.    END
  39. Style fontpath
  40. Type ' '
  41. Paste
  42. Fontsize 12
  43. exit